home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SYSOLM < prev    next >
Text File  |  1994-12-13  |  274b  |  5 lines
  1. SYSOLM: procedure;getuser 23;po=result;getuser 2307346;op=result'_olm'po
  2.     if exists(op) then m='A';else m='W';if open(f,op,m) then do
  3.     call writech(f,copies('00'x,30)'01'x||copies('00'x,23)arg(1)||'0a1a0a'x)
  4.     call close(f);sendstring 'M1101743 #1 + +}';end;return
  5.